<%
    '--------------------------------------------------------------------
    ' dev.northwind.web
    '
    ' Copyright (c) 2015 Ong Zhi Xian
    '
    '
    '
    ' Application models for VBScript
    '
    '--------------------------------------------------------------------
    '---- Class ----
    Class Shipper

        '---- Class Variables ----

        Public var1 , var2
        Dim var1 , var2
        Private var1 , var2
        Private modStrType
        Private OS

        '---- Class Properties ----
 
        Public Property Let ComputerType(strType)
            modStrType = strType
        End Property
 
        Public Property Get ComputerType()
            ComputerType = modStrType
        End Property
 
        Public Property Set OperatingSystem(oObj)
            Set OS = oObj
        End Property
 
        Public Property Get OperatingSystem()
            Set OperatingSystem = OS
        End Property

        '---- Class Methods ----

        Public Start()
            Fuel = 2.45
	        Pressure =  4.15
        End Function

        '---- Class Events ----

        Private Sub Class_Initialize(  )
	        Initalization code goes here
        End Sub

        'When Object is Set to Nothing
        Private Sub Class_Terminate(  )
	        Termination code goes here
        End Sub

    End Class 
    
%>